[<<Previous Entry]
[^^Up^^]
[Next Entry>>]
[Menu]
[About The Guide]
Using the Library:
----------------------------------------------------------------------------
TSDWIN is simply linked in as any other library at link time.
eg., RTLINK FI MYAPP LIB TSDWIN
It may be added as a line in your .LNK file in the normal way.
TSDWIN is written in Clipper 5.01, 8086 Assembler and Microsoft C
5.1.
TSDWIN is a granular library. Only those functions called will be
linked in. The library is written using the pseudo-object
programming method available with Clipper 5.01 and adds about 24K
to an application when used in its most basic form.
There is now a small root library, TSDROOT.LIB which contains some
assembler code which some have found difficulty overlaying. It may
be linked RESIDENT or put in the root with Blinker.
The following examples describe the various linking processes:
RTLINK:
OUTPUT WINDEMO.EXE
VERBOSE
RESIDENT
LIB TSDROOT
DYNAMIC
FI WINDEMO
LIB TSDWIN
BLINKER:
OUTPUT WINDEMO.EXE
VERBOSE
BLINKER INCREMENTAL OFF
LIB TSDROOT
BEGINAREA
FI WINDEMO
ALLOCATE TSDWIN
ALLOCATE EXTEND
ENDAREA
Some of the larger functions in TSDWIN may be configured any way
you wish. You may want to consider making yourself a 'box' in
which to put the function call, as we do in our own applications.
For instance, one client wants all his Message boxes centered on
the screen with only one message line in the box. In this case we
define a function called 'AskUser( cString, cTitle, aChoices )'
which is the only call in the entire application to our
twButtonBox() function. All the client's defaults, such as the
colour, frame type, shadow and position, are defined in the
AskUser Function. In this way, you never have to remember the
fairly long list of parameters which go with a function like
twButtonBox(). Such practices ensure consistency, and also link
the LIB function only once. Here is an example:
FUNCTION AskUser( aChoices, cQuestion, cTitle )
LOCAL nRetVal, nRowAdd := INT( LEN( cQuestion ) / ( 66 - 13 ))
DEFAULT aChoices TO { "Yes", "No" },;
cQuestion TO "Proceed?"
RETURN ( twButtonBox( "H", cQuestion, cTitle,, ;
aChoices,, 6, 13, 12 + nRowAdd, 66, 3, 8 ))
This page created by ng2html v1.05, the Norton guide to HTML conversion utility.
Written by Dave Pearson